VERSION 5.00
Begin VB.Form frmProfile 
   BackColor       =   &H00000000&
   Caption         =   "VectorNet Bot v2.0 | By: Plugins -- User Profile"
   ClientHeight    =   4005
   ClientLeft      =   120
   ClientTop       =   420
   ClientWidth     =   6615
   Icon            =   "frmProfile.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4005
   ScaleWidth      =   6615
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton btnCancel 
      Caption         =   "Cancel"
      Height          =   345
      Left            =   120
      TabIndex        =   11
      Top             =   3600
      Width           =   855
   End
   Begin VB.CommandButton btnWrite 
      Caption         =   "Write"
      Height          =   615
      Left            =   120
      TabIndex        =   10
      Top             =   3000
      Width           =   855
   End
   Begin VB.TextBox txtDescript 
      BackColor       =   &H00000000&
      ForeColor       =   &H00FFFFFF&
      Height          =   3165
      Left            =   1080
      MultiLine       =   -1  'True
      TabIndex        =   9
      Top             =   840
      Width           =   5535
   End
   Begin VB.TextBox txtLocation 
      BackColor       =   &H00000000&
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   1080
      TabIndex        =   7
      Top             =   480
      Width           =   4335
   End
   Begin VB.TextBox txtSex 
      BackColor       =   &H00000000&
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   5880
      TabIndex        =   5
      Top             =   480
      Width           =   735
   End
   Begin VB.TextBox txtAge 
      BackColor       =   &H00000000&
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   5880
      TabIndex        =   3
      Top             =   120
      Width           =   735
   End
   Begin VB.Label Label5 
      BackColor       =   &H00000000&
      Caption         =   "Description:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   840
      Width           =   975
   End
   Begin VB.Label Label4 
      BackColor       =   &H00000000&
      Caption         =   "Location:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   480
      Width           =   975
   End
   Begin VB.Label Label3 
      BackColor       =   &H00000000&
      Caption         =   "Sex:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   5520
      TabIndex        =   4
      Top             =   480
      Width           =   375
   End
   Begin VB.Label Label2 
      BackColor       =   &H00000000&
      Caption         =   "Age:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   5520
      TabIndex        =   2
      Top             =   120
      Width           =   375
   End
   Begin VB.Label lblUsername 
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   1080
      TabIndex        =   1
      Top             =   120
      Width           =   4335
   End
   Begin VB.Label Label1 
      BackColor       =   &H00000000&
      Caption         =   "Username:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   855
   End
End
Attribute VB_Name = "frmProfile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub btnCancel_Click()

Unload Me

End Sub

Private Sub btnWrite_Click()

'Write the profile to the ini file.
WriteProfile "User Profile", "Username", lblUsername.Caption
WriteProfile "User Profile", "Age", txtAge.text
WriteProfile "User Profile", "Sex", txtSex.text
WriteProfile "User Profile", "Location", txtLocation.text
WriteProfile "User Profile", "Description", txtDescript.text

Unload Me

End Sub

Private Sub Form_Load()

lblUsername.Caption = frmConfig.txtUsername

txtAge.text = ReadProfile("User Profile", "Age")
txtSex.text = ReadProfile("User Profile", "Sex")
txtLocation.text = ReadProfile("User Profile", "Location")
txtDescript.text = ReadProfile("User Profile", "Description")

End Sub

Private Sub Form_Unload(Cancel As Integer)

'Write the profile to the ini file.
WriteProfile "User Profile", "Username", lblUsername.Caption
WriteProfile "User Profile", "Age", txtAge.text
WriteProfile "User Profile", "Sex", txtSex.text
WriteProfile "User Profile", "Location", txtLocation.text
WriteProfile "User Profile", "Description", txtDescript.text

End Sub
